home *** CD-ROM | disk | FTP | other *** search
/ Yellows - Privacy (Deluxe) / Akira Gomi Photographs - Yellows: Privacy (Deluxe) - Disc 1.iso / mono / purse.dxr / 00036.ls < prev    next >
Encoding:
Text File  |  1996-07-06  |  1.1 KB  |  31 lines
  1. on inits
  2.   global monolist, monoclist, keydetect, event
  3.   set monolist to ["007,A", "007,B", "007,C", "007,D", "007,E", "007,F", "007,G", "007,H", "007,I", "007,J", "007,K", "007,M", "007,N", "007,O", "007,P", "007,Q", "007,R", "007,T", "007,U", "007,V", "007,W", "007,X"]
  4.   set monoclist to []
  5.   set a to count(monolist)
  6.   repeat with i = 1 to a
  7.     set mono to getAt(monolist, random(count(monolist)))
  8.     add(monoclist, mono)
  9.     deleteAt(monolist, getPos(monolist, mono))
  10.   end repeat
  11.   repeat with i = 2 to 7
  12.     puppetSprite(i, 1)
  13.     set the ink of sprite i to 0
  14.     set the type of sprite i to 1
  15.     set the foreColor of sprite i to 255
  16.     set the backColor of sprite i to 0
  17.   end repeat
  18. end
  19.  
  20. on columnset num
  21.   repeat with i = 1 to 3
  22.     repeat with t = 1 to 2
  23.       set monoc to getAt(monoclist, ((num - 1) * 2) + ((i - 1) * 2) + t)
  24.       set spnum to (2 * (i - 1)) + t + 1
  25.       set the castNum of sprite spnum to the number of member monoc
  26.       set the locH of sprite spnum to 130 + ((i - 1) * 189)
  27.       set the locV of sprite spnum to 162 + ((t - 1) * 156)
  28.     end repeat
  29.   end repeat
  30. end
  31.